home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POVTOOLS / SCENES / LEVEL2 / ROMO.POV < prev    next >
Encoding:
Text File  |  1995-11-25  |  1.5 KB  |  60 lines
  1. // POV-Ray scene
  2. // Fun reflections of a fertility symbol.
  3. // A strange, but pleasant image.
  4.  
  5. #include "colors.inc"
  6. #include "textures.inc"
  7. #include "shapes.inc"
  8.  
  9. camera {
  10.    location <0, 5, -16>
  11.    direction <0, 0, 1.9>
  12.    right <4/3, 0, 0>
  13.    look_at <0, 4, 8>
  14. }
  15. #declare Radius = <0.4, 0.4, 0.4>
  16. #declare Width = <0, 0, 2>
  17.  
  18. union {
  19.    object { Cylinder_Y scale Radius translate Width }
  20.    object { Cylinder_Y scale Radius translate Width rotate 30*y }
  21.    object { Cylinder_Y scale Radius translate Width rotate 60*y }
  22.    object { Cylinder_Y scale Radius translate Width rotate 90*y }
  23.     
  24.    object { Cylinder_Y scale Radius translate Width rotate -30*y }
  25.    object { Cylinder_Y scale Radius translate Width rotate -60*y }
  26.    object { Cylinder_Y scale Radius translate Width rotate -90*y }
  27.  
  28.    scale 4
  29.    texture { Copper_Texture finish { reflection 0.5 } }
  30.    translate <0, 4, 8>
  31. }    
  32.  
  33. // Fertility symbol?
  34. union {
  35.    sphere { <0, 8, 8>, 2 }
  36.    sphere { <2, 7, 8>, 1 }
  37.    sphere { <-2, 7, 8>, 1 }
  38.    sphere { <0, 4, 8>, 4 }
  39.    sphere { <3, 2, 8>, 2 }
  40.    sphere { <-3, 2, 8>, 2 }
  41.    sphere { <4.5, 1, 8>, 1 }
  42.    sphere { <-4.5, 1, 8>, 1 }
  43.  
  44.    scale <0.7, 0.7, 0.7>
  45.    translate -3*z
  46.    texture { pigment { Red } finish { phong 1 } }
  47. }
  48.   
  49. // Floor
  50. plane { y, 0
  51.    texture { Brass_Valley scale 2 }
  52. }
  53.  
  54. //object {
  55. // sphere { <0, 0, 0>, 100 }
  56. // texture { Blood_Sky }
  57. //}
  58.  
  59. light_source { <3, 16, -8> color red 1 green 1 blue 1 }
  60.